MPW's Interface.o library and THINK C's interface library code both contain compatibility glue for the FindFolder function. The FindFolder compatibility glue lets you call FindFolder even when FindFolder isn't available (i.e., under System 6).
THINK Pascal's Interface.lib file doesn't include the FindFolder compatibility glue. That's a problem if you use MoreFiles.Lib with THINK Pascal because I built the libraries using THINK C and MoreFiles calls FindFolder (through the glue) from the HMoveRenameCompat function. The solution is the FindFolderGlue.o library. If you add FindFolderGlue.o to your THINK Pascal project, THINK Pascal can link with MoreFiles.Lib.
An Added Feature…
If you want FindFolder function calls from *your* THINK Pascal programs to use the FindFolder compatibility glue code, you'll need to change the INLINE code for FindFolder in the Folders.p interface file to this:
{$IFC SystemSevenOrLater }
INLINE
$7000, $A823;
{$ENDC}
With the conditional directives added to Folders.p, programs that require SystemSevenOrLater will call FindFolder directly and programs that can run under System 6 will call the FindFolder compatibility glue.
